home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / testfiles / TestLibrary < prev    next >
Text File  |  2002-10-27  |  448b  |  16 lines
  1. lib <- openLibrary: 'exec.library' version: 40
  2.  
  3. 'For exec.library:' print
  4.  
  5. ('  ID      : ', (lib getIDString )) print
  6. ('  Ver     : ', (lib getVersion  )) print
  7. ('  Rev     : ', (lib getRevision )) print
  8. ('  Flags   : ', (lib getFlags    )) print
  9. ('  NegSize : ', (lib getNegSize  )) print
  10. ('  PosSize : ', (lib getPosSize  )) print
  11. ('  Count   : ', (lib getOpenCount)) print
  12.  
  13. ('  CheckSum: ', <primitive 26 (lib getCheckSum) 16>) print
  14.  
  15. lib close
  16.